/*
 * GccApplication2.c
 *
 * Created: 2018-05-15 10:33:46
 * Author : ine15rsc
 */ 

#define F_CPU 8000000UL
#define set_bit(PORT,px)		(PORT |= _BV(px))
#define clear_bit(PORT,px)		(PORT &= ~_BV(px))
#define _BV(bit)					(1<<(bit))

#include <avr/io.h>
#include <stdlib.h>
#include <avr/interrupt.h>
#include <util/delay.h>
#include <inttypes.h>

volatile uint16_t count;
unsigned int setTemp_enable=0;
unsigned int setMoist_enable=0;
unsigned int readMoist_enable=0;
unsigned int temperature;
unsigned int humidity;
unsigned int dhc[150];
unsigned char realTemp[4];
unsigned char realHum[4];
unsigned int write_enable=0;
unsigned char keytest;
unsigned int minTemp;
unsigned int minMoist;
unsigned char moistVal;
unsigned char LCD_clear = 0b00000001;
unsigned int keyVal;
unsigned int tempVal;
unsigned int new_input;
unsigned int keyCode;
unsigned int dhc_counter= 0;
unsigned int parity[6];
unsigned int moistSet;

void command_LCD(char cmd){
	PORTD |= _BV(PD6); // E hög
	PORTD &= ~_BV(PD4); // RS låg
	PORTD &= ~_BV(PD5); // R/W låg
	PORTB = cmd;
	_delay_ms(5);
	PORTD &= ~_BV(PD6); // E låg
	//_delay_ms(5);
	PORTD |= _BV(PD6); // E Hög
	
}

void writeData(char d){
	PORTD |= _BV(PD6); // E hög
	PORTD |= _BV(PD4); // RS hög
	PORTD &= ~_BV(PD5); // R/W låg
	PORTB = d;
	_delay_ms(10);
	PORTD &= ~_BV(PD6); // E låg
	PORTD |= _BV(PD6); // E hög
	
}

void write_String(char list[]){
	int i = 0;
	while(list[i] !=NULL){
		writeData(list[i]);
		i++;
	}

}

void initDHC(){
	
	MCUCR |= _BV(ISC11);
	MCUCR &= ~_BV(ISC10);
	
	

	// set up timer with prescaler = 8
	TCCR1B |=_BV(CS11);
	count= 0;
}

void DHC_run(){
	
	ADCSRA &= ~_BV(ADIE);
	
	DDRD |= _BV(PD3);
	
	PORTD |= _BV(PD3);
	
	PORTD &= ~_BV(PD3);
	_delay_ms(25);
	PORTD |= _BV(PD3);
	DDRD &= ~_BV(PD3);
	_delay_us(80);
	TCNT1 = 0;
	GICR |= _BV(INT1);
	
}

void DHC_translate(){
	ADCSRA |= 1<<ADIE;
	int c = 0;
	dhc[0]=0;
	for(int i=0; i<5; i++){
		for(int e = 0; e<8;e++){
			if(dhc[c]==1){
				parity[i]|= _BV(7-e);
			}
			else if(dhc[c]==0){
				parity[i] &= ~_BV(7-e);
			}
			c++;
		}
	}

	if((parity[0]+parity[1]+parity[2]+parity[3]) == parity[4]){
		if((parity[0]==0)||(parity[2]==0)){
				DHC_run();
				}
		else{
			humidity=parity[0];
			temperature=parity[2];
			dhc_counter=0;
			ADCSRA |= 1<<ADIE;
		}
	}
	else{
		
		DHC_run();

	}
}

void startADC(){
	
	//starta prescaler - klocka dividera 1 000 000 med 50-200 khz för att klockan ska vara rätt inställd, prescaler mellan 5 och 20
	//vi använder 16 prescaler - se datablad
	ADCSRA |= 1 << ADPS2;
	
	// väljer om 8bit eller 10bit
	//ADMUX |= 1<<ADLAR;
	
	//Voltage reference mha AVCC vid AREF pinne
	ADMUX  |= 1<<REFS0;
	
	//Enable interrupt
	ADCSRA |= 1<<ADIE;
	
	//startar ADC
	ADCSRA |= 1<<ADEN;
	//conversion
	ADCSRA |= 1<<ADSC;
}

void init(){
	DDRD = 0b01110010;
	DDRB = 0b11111111;
	
	command_LCD(0b00111100); //function set
	command_LCD(0b00001111);
	command_LCD(LCD_clear); //clear display
	
	

	char list[9] = "Welcome";
	write_String(list);
	_delay_ms(1000);
	command_LCD(LCD_clear);

	DDRA = 0b00000000;
	PORTD =0b00000000;
	GICR |= _BV(INT0);
 	MCUCR |=_BV(ISC01);
 	MCUCR |=_BV(ISC00);
	startADC();
	initDHC();
	sei();
}

void set_main_screen(){
	
	write_String("Temperature:  ");

	write_String("C");
	command_LCD(0b11000000);
	write_String("Humidity: ");
	write_String(" %");
	
}

void setTemp(){
	command_LCD(LCD_clear);
	command_LCD(0b00001111);
	
	char list2[19] = "Set Temperature:";
	
	
	write_String(list2);
	command_LCD(0b11000000);
	int v[2];
	v[1]= 100;

	write_enable = 1;
	new_input=0;
	for(int f = 0; f<2;f++){
		
		while(new_input== 0){
		}
		new_input = 0;
		if(keyVal!=10){
			v[f] = keyVal;
		}
	}
	write_enable = 0;
	while(keyVal!=10){
	}
	if(v[1]!=100){
		tempVal = v[0]*10+ v[1];
	}
	else{
		tempVal = v[0];
	}
	_delay_ms(500);
	command_LCD(LCD_clear);
	
	
}

void setMoist(){
	command_LCD(LCD_clear);
	char list[16] = "Set Moisture";
	write_String(list);
	_delay_ms(1000);
	command_LCD(LCD_clear);
	char list2[19] = "1=dry 2=moist";
	write_String(list2);
	command_LCD(0b11000000);
	char list3[8] = "3=wet";
	write_String(list3);
	write_enable = 2;
	while (!((keyVal==1)||(keyVal==2)||keyVal==3)){
		while(new_input== 0){
		}
		new_input = 0;
	}
	moistSet = keyVal;
	write_enable = 0;
	while(keyVal!=10){
	}
	if(moistSet==1){
	
		
		minMoist=20;
		char list4[6] = "DRY";
		command_LCD(LCD_clear);
		write_String(list4);
	}
	if(moistSet==2){
		
		
		minMoist=100;
		char list4[9] = "MOIST";
		command_LCD(LCD_clear);
		write_String(list4);
	}
	if(moistSet==3){
		
		
		minMoist=500;
		char list4[6] = "WET";
		command_LCD(LCD_clear);
		write_String(list4);
	}
	_delay_ms(500);
	command_LCD(LCD_clear);
}

char button(int val){
	switch(val){
		case 0b00000000:
		keyVal= 1;
		if((write_enable == 1)||(write_enable==2)||(write_enable==3)){
			writeData('1');
		}
		return '1';
		case 0b00100000:
		
		keyVal= 2;
		if( (write_enable == 1)||(write_enable==2)||(write_enable==3)){
			writeData('2');
		}
		return '2';
		case 0b00010000:
		keyVal= 3;
		if((write_enable == 1)||(write_enable==2)||(write_enable==3)){
			writeData('3');
		}
		return '3';
		case 0b00110000:
		keyVal= 4;
		if(write_enable == 1||(write_enable==3)){
			writeData('4');
		}
		return '4';
		case 0b00001000:
		keyVal= 5;
		if(write_enable == 1||(write_enable==3)){
			writeData('5');
		}
		return '5';
		case 0b00101000:
		keyVal= 6;
		if(write_enable == 1||(write_enable==3)){
			writeData('6');
		}
		return '6';
		case 0b00011000:
		keyVal= 7;
		if(write_enable == 1||(write_enable==3)){
			writeData('7');
		}
		return '7';
		case 0b00111000:
		keyVal= 8;
		if(write_enable == 1||(write_enable==3)){
			writeData('8');
		}
		return '8';
		case 0b00000100:
		keyVal= 9;
		if(write_enable == 1||(write_enable==3)){
			writeData('9');
		}
		return '9';
		case 0b00100100:
		keyVal= 0;
		if(write_enable == 1||(write_enable==3)){
			writeData('0');
		}
		return '0';
		case 0b00010100:
		keyVal= 10;
	
		return 'k';
		
		case 0b00110100:
		if(write_enable==3){
		readMoist_enable=1;
		}
		return;
		
		case 0b00001100:
		return;
		case 0b00101100:
		return;
		case 0b00011100:
		if(write_enable==3){
		setTemp_enable=1;
		}
		return;
		
		case 0b00111100:
		if(write_enable==3){
			_delay_ms(50);
		setMoist_enable=1;
		}
		return;
		
		default :
		return;	
	}
}

void readMoist(){
	_delay_ms(30);
	command_LCD(0b1000000);
	command_LCD(LCD_clear);
	
	if(moistSet == 1){
		if(moistVal<20){
			unsigned char list[10] = "Vattna";
			write_String(list);
			_delay_ms(1000);
		}
		else{
			
			unsigned char list[6] ="Bra";
			write_String(list);
			_delay_ms(1000);
		}
	}
	if(moistSet == 2){
		if(moistVal<100){
			unsigned char list[10] = "Vattna";
			write_String(list);
			_delay_ms(1000);
		}
		else{
			
			unsigned char list[6] ="Bra";
			write_String(list);
			_delay_ms(1000);
		}
	}
	if(moistSet == 3){
		if(moistVal<500){
			unsigned char list[10] = "Vattna";
			write_String(list);
			_delay_ms(1000);
		}
		else{
			
			unsigned char list[6] ="Bra";
			write_String(list);
			_delay_ms(1000);
		}
		
		}
	command_LCD(LCD_clear);
}

int main(void){
	init();
	setTemp();
	command_LCD(LCD_clear);
	setMoist();
	command_LCD(LCD_clear);
	DHC_run();
	_delay_ms(20);
	
	if(dhc_counter>38){
		dhc_counter=0;
		DHC_translate();
	}
	
	write_String("Temperature:  ");
	
	
	write_String("C");
	command_LCD(0b11000000);
	write_String("Humidity: ");
	
	write_String(" %");
	
	while(1){
		startADC();
		write_enable=3;
		if(setMoist_enable==1){
			setMoist();
			setMoist_enable=0;
			set_main_screen();
		}
		if(setTemp_enable==1){
			setTemp();
			setTemp_enable=0;
			set_main_screen();
		}
		if(readMoist_enable==1){
			readMoist();
			readMoist_enable=0;
			set_main_screen();
		}
		itoa(temperature, realTemp,10);

		command_LCD(0b00001100);
		
		command_LCD(0b10001100);

		write_String(realTemp);
		_delay_ms(200);
		command_LCD(0b11001001);
		itoa(humidity, realHum, 10);
		write_String(realHum);
		DHC_run();
		if(dhc_counter>38){
			dhc_counter=0;
			DHC_translate();
			
		}
		
		command_LCD(0b00001100);
		if((moistVal<minMoist)||(tempVal>temperature)){
			DDRD |=_BV(PD7);
			PORTD |=_BV(PD7);
		}
		else{
			DDRD &=~_BV(PD7);
		}
	}
}
//ISR - Interrupt service routine
ISR(ADC_vect){
	int res = ADC;
	moistVal=res;
	ADCSRA |= 1<<ADSC;
}

ISR(INT0_vect){
	GIFR |= _BV(INTF0);
	_delay_ms(30);
	new_input = 1;
	button(PINA & 0b00111100);
	_delay_ms(30);
}

ISR(INT1_vect){
	
	if(TCNT1>70&&TCNT1<90){
		dhc[dhc_counter]=0;
		TCNT1=0;
		dhc_counter++;
		
	}
	else if ((TCNT1>90) && (TCNT1 <140)){
		TCNT1=0;
		dhc[dhc_counter]=1;
		dhc_counter++;
	}
	GIFR |= _BV(INTF1);
	
}